10 REM *** NO NEWS (64) *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
30 PRINTCHR$(147)"LOADING AND CHECKING DATA LINE:":J=53000
40 FORB=0TO11:READA
50 IFB=0THENL=PEEK(64)*256+PEEK(63):PRINTCHR$(19)TAB(31)L:PRINT
60 IFA<0ORA>255THEN80
70 POKEJ+B,A:X=X+A:D=D+1:NEXTB:READA:IFA=XTHEN90
80 PRINT"ERROR IN DATA LINE:"L:END
90 X=0:J=J+12:IFD<240THEN40
100 PRINT"THE DATA IS OK...":PRINT
110 PRINT"SYS 53000 TOGGLES ON AND OFF...":END
120 DATA169,79,32,210,255,160,207,204,3,3,240,19,1581
130 DATA173,2,3,174,3,3,141,251,207,142,252,207,1558
140 DATA169,78,162,59,76,50,207,169,70,32,210,255,1537
150 DATA174,251,207,172,252,207,142,2,3,140,3,3,1556
160 DATA76,210,255,32,96,165,134,122,132,123,32,115,1492
170 DATA0,170,240,243,162,255,134,58,176,3,76,156,1673
180 DATA164,32,121,165,169,1,141,249,207,169,0,160,1578
190 DATA255,141,248,207,141,250,207,141,246,207,200,185,2428
200 DATA0,2,240,107,201,34,208,6,77,246,207,76,1404
210 DATA99,207,174,246,207,208,235,201,138,240,8,201,2164
220 DATA147,240,4,201,162,208,223,165,214,141,247,207,2159
230 DATA174,247,207,160,0,24,32,240,255,169,224,160,1892
240 DATA207,32,30,171,238,248,207,208,28,206,249,207,2031
250 DATA208,23,169,20,141,249,207,169,128,77,250,207,1848
260 DATA141,250,207,240,215,169,18,32,210,255,76,140,1953
270 DATA207,32,228,255,201,78,240,4,201,89,208,212,1955
280 DATA32,210,255,201,78,208,3,76,116,164,169,13,1525
290 DATA32,210,255,76,225,167,65,46,72,46,83,46,1323
300 DATA65,82,69,32,89,79,85,32,83,85,82,69,852
310 DATA63,32,40,89,47,78,41,146,32,0,0,0,568